inherited frmMnfMachiningBill: TfrmMnfMachiningBill
  Left = 435
  Top = 122
  Caption = #29983#20135#21152#24037#21333
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlDBCtrl: TPanel
    inherited pnlThirdtrade: TPanel
      inherited edtTTtraderid: TcxDBLookupComboBox
        ExplicitHeight = 20
      end
      inherited lblTTtraderid: TcxLabel
        AnchorX = 78
      end
      inherited cxLabel1: TcxLabel
        AnchorX = 262
      end
      inherited edtTTamount: TcxDBCalcEdit
        ExplicitHeight = 20
      end
      inherited edtTTremark: TcxDBTextEdit
        ExplicitHeight = 20
      end
      inherited edtTTBalanceid: TcxDBLookupComboBox
        ExplicitHeight = 20
      end
      inherited edtTTAccountid: TcxDBLookupComboBox
        ExplicitHeight = 20
      end
      inherited lblTTBalanceid: TcxLabel
        AnchorX = 469
      end
      inherited edtTTBalanceamt: TcxDBCalcEdit
        ExplicitHeight = 20
      end
    end
    inherited DtlPageCtrl: TcxPageControl
      Height = 303
      ExplicitHeight = 303
      ClientRectBottom = 303
      inherited tabMain: TcxTabSheet
        ExplicitWidth = 872
        ExplicitHeight = 303
        inherited DtlGrid: TcxGrid
          Top = 111
          Height = 192
          RootLevelOptions.DetailTabsPosition = dtpTop
          ExplicitTop = 111
          ExplicitHeight = 192
          inherited DtlGridDBTableView: TcxGridDBBandedTableView
            DataController.DataModeController.SmartRefresh = True
          end
          object viewProc: TcxGridDBBandedTableView [2]
            Navigator.Buttons.CustomButtons = <>
            OnFocusedItemChanged = viewProcFocusedItemChanged
            OnFocusedRecordChanged = viewProcFocusedRecordChanged
            DataController.DataModeController.SmartRefresh = True
            DataController.DataSource = dsDtlProc
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.AlwaysShowEditor = True
            OptionsBehavior.FocusCellOnTab = True
            OptionsBehavior.FocusFirstCellOnNewRecord = True
            OptionsBehavior.GoToNextCellOnEnter = True
            OptionsBehavior.FocusCellOnCycle = True
            OptionsView.Footer = True
            OptionsView.FooterMultiSummaries = True
            OptionsView.GroupByBox = False
            OptionsView.Indicator = True
            OptionsView.IndicatorWidth = 25
            OptionsView.BandHeaders = False
            OptionsView.FixedBandSeparatorColor = clBackground
            Styles.Background = MainDM.bslBackGroup
            Styles.ContentEven = MainDM.bsEven
            Styles.ContentOdd = MainDM.bsOdd
            Styles.Footer = MainDM.bsTitle
            Styles.Group = MainDM.bsTitle
            Styles.Header = MainDM.bsTitle
            Styles.Indicator = MainDM.bsTitle
            Styles.Selection = MainDM.bsSelect
            Styles.BandHeader = MainDM.bsTitle
            OnCustomDrawColumnHeader = DtlGridDBTableViewCustomDrawColumnHeader
            OnCustomDrawIndicatorCell = DtlGridDBTableViewCustomDrawIndicatorCell
            Bands = <
              item
                FixedKind = fkLeft
              end
              item
              end>
          end
          inherited DtlGridLevel: TcxGridLevel
            Caption = #29289#26009#26126#32454
          end
          object lvlProc: TcxGridLevel
            Caption = #24037#24207#27969#31243
            GridView = viewProc
          end
        end
        inherited sptDtl: TcxSplitter
          Top = 103
          ExplicitTop = 103
        end
        inherited DtlGrid2: TcxGrid
          Height = 103
          ExplicitHeight = 103
        end
      end
      inherited tsSum: TcxTabSheet
        ExplicitHeight = 303
      end
    end
    inherited dynlblCreate_by: TcxLabel
      AnchorX = 221
    end
    inherited dynlblCheck_by: TcxLabel
      AnchorX = 429
    end
    inherited dynlblFilid: TcxLabel
      AnchorX = 88
    end
    inherited dynlblDeptid: TcxLabel
      AnchorX = 301
    end
    inherited dynlblEmpid: TcxLabel
      AnchorX = 505
    end
    inherited dynlblBKind: TcxLabel
      AnchorX = 149
    end
  end
  inherited MainDataSource: TDataSource
    Left = 221
    Top = 165
  end
  inherited ImageList1: TImageList
    Top = 235
  end
  inherited ActionList1: TActionList
    Top = 243
  end
  inherited pmExec: TPopupMenu
    Left = 392
    Top = 64
    inherited muProductMakeBill: TMenuItem
      Visible = True
    end
    object muCompleted: TMenuItem [5]
      Caption = #23436#24037#22788#29702
      OnClick = muCompletedClick
    end
    object muUnCompleted: TMenuItem [6]
      Caption = #21453#23436#24037#22788#29702
      OnClick = muUnCompletedClick
    end
    inherited muMakeBatch: TMenuItem
      Enabled = False
    end
  end
  inherited pmDetail: TPopupMenu
    object muSub: TMenuItem [0]
      Caption = #36873#25321#26367#20195#21697
      OnClick = muSubClick
    end
    object N12: TMenuItem [1]
      Caption = '-'
    end
  end
  inherited cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
    inherited cxGridBandedTableViewStyleSheet1: TcxGridBandedTableViewStyleSheet
      BuiltIn = True
    end
  end
  inherited cdsMaster: TClientDataSet
    object cdsMasterbid: TIntegerField
      FieldName = 'bid'
    end
    object cdsMasterbkind: TIntegerField
      FieldName = 'bkind'
    end
    object cdsMasterbstate: TIntegerField
      FieldName = 'bstate'
    end
    object cdsMasterbcode: TStringField
      FieldName = 'bcode'
      Size = 40
    end
    object cdsMasterbdate: TDateTimeField
      FieldName = 'bdate'
    end
    object cdsMasterworkshopid: TIntegerField
      FieldName = 'workshopid'
    end
    object cdsMasterfilid: TIntegerField
      FieldName = 'filid'
    end
    object cdsMasterdeptid: TIntegerField
      FieldName = 'deptid'
    end
    object cdsMastercreate_by: TIntegerField
      FieldName = 'create_by'
    end
    object cdsMastercheck_by: TIntegerField
      FieldName = 'check_by'
    end
    object cdsMastervoucherid: TIntegerField
      FieldName = 'voucherid'
    end
    object cdsMasteramount: TFloatField
      FieldName = 'amount'
    end
    object cdsMasterrelationcount: TByteField
      FieldName = 'relationcount'
    end
    object cdsMasterrelationbid: TIntegerField
      FieldName = 'relationbid'
    end
    object cdsMasterpause: TBooleanField
      FieldName = 'pause'
    end
    object cdsMastercustom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object cdsMastercustom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object cdsMastercustom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object cdsMastercustom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object cdsMastercustom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object cdsMastercustom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object cdsMastercustom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object cdsMastercustom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object cdsMastercustom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object cdsMastercustom10: TStringField
      FieldName = 'custom10'
      Size = 200
    end
    object cdsMastercustom11: TFloatField
      FieldName = 'custom11'
    end
    object cdsMastercustom12: TFloatField
      FieldName = 'custom12'
    end
    object cdsMastercustom13: TFloatField
      FieldName = 'custom13'
    end
    object cdsMastercustom14: TFloatField
      FieldName = 'custom14'
    end
    object cdsMastercustom15: TFloatField
      FieldName = 'custom15'
    end
    object cdsMastercreate_time: TDateTimeField
      FieldName = 'create_time'
    end
    object cdsMasterupdate_time: TDateTimeField
      FieldName = 'update_time'
    end
    object cdsMastercheck_time: TDateTimeField
      FieldName = 'check_time'
    end
    object cdsMasterremark: TStringField
      FieldName = 'remark'
      Size = 200
    end
    object cdsMasterrelationbtype: TIntegerField
      FieldName = 'relationbtype'
    end
    object cdsMasterprojectid: TIntegerField
      FieldName = 'projectid'
    end
    object cdsMasterpjcode: TWideStringField
      FieldName = 'pjcode'
      Size = 50
    end
    object cdsMasterpjname: TWideStringField
      FieldName = 'pjname'
      Size = 60
    end
  end
  inherited cdsDetail: TClientDataSet
    BeforeDelete = cdsDetailBeforeDelete
    object cdsDetailbid: TIntegerField
      FieldName = 'bid'
    end
    object cdsDetailbno: TIntegerField
      FieldName = 'bno'
    end
    object cdsDetailbdtlno: TIntegerField
      FieldName = 'bdtlno'
    end
    object cdsDetailproductid: TIntegerField
      FieldName = 'productid'
    end
    object cdsDetailcprice: TFloatField
      FieldName = 'cprice'
    end
    object cdsDetailbprice: TFloatField
      FieldName = 'bprice'
    end
    object cdsDetailbquantity: TFloatField
      FieldName = 'bquantity'
    end
    object cdsDetailamount: TFloatField
      FieldName = 'amount'
    end
    object cdsDetailunitid: TIntegerField
      FieldName = 'unitid'
    end
    object cdsDetailquantity: TFloatField
      FieldName = 'quantity'
    end
    object cdsDetailprice: TFloatField
      FieldName = 'price'
    end
    object cdsDetailunit1qty: TFloatField
      FieldName = 'unit1qty'
    end
    object cdsDetailunit2qty: TFloatField
      FieldName = 'unit2qty'
    end
    object cdsDetailunit3qty: TFloatField
      FieldName = 'unit3qty'
    end
    object cdsDetailassqty: TFloatField
      FieldName = 'assqty'
    end
    object cdsDetailrelationassqty: TFloatField
      FieldName = 'relationassqty'
    end
    object cdsDetailbatchcode: TStringField
      FieldName = 'batchcode'
      Size = 200
    end
    object cdsDetailproductdate: TDateTimeField
      FieldName = 'productdate'
    end
    object cdsDetailvaliddate: TDateTimeField
      FieldName = 'validdate'
    end
    object cdsDetaildrawqty: TFloatField
      FieldName = 'drawqty'
    end
    object cdsDetaildrawamt: TFloatField
      FieldName = 'drawamt'
    end
    object cdsDetailwastedqty: TFloatField
      FieldName = 'wastedqty'
    end
    object cdsDetailwastedamt: TFloatField
      FieldName = 'wastedamt'
    end
    object cdsDetailrelationcount: TByteField
      FieldName = 'relationcount'
    end
    object cdsDetailrelationbtype: TIntegerField
      FieldName = 'relationbtype'
    end
    object cdsDetailrelationbid: TIntegerField
      FieldName = 'relationbid'
    end
    object cdsDetailrelationbno: TIntegerField
      FieldName = 'relationbno'
    end
    object cdsDetailrelationpid: TIntegerField
      FieldName = 'relationpid'
    end
    object cdsDetailrelationqty: TFloatField
      FieldName = 'relationqty'
    end
    object cdsDetailioqty: TFloatField
      FieldName = 'ioqty'
    end
    object cdsDetailcustom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object cdsDetailcustom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object cdsDetailcustom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object cdsDetailcustom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object cdsDetailcustom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object cdsDetailcustom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object cdsDetailcustom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object cdsDetailcustom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object cdsDetailcustom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object cdsDetailcustom10: TStringField
      FieldName = 'custom10'
      Size = 200
    end
    object cdsDetailcustom11: TFloatField
      FieldName = 'custom11'
    end
    object cdsDetailcustom12: TFloatField
      FieldName = 'custom12'
    end
    object cdsDetailcustom13: TFloatField
      FieldName = 'custom13'
    end
    object cdsDetailcustom14: TFloatField
      FieldName = 'custom14'
    end
    object cdsDetailcustom15: TFloatField
      FieldName = 'custom15'
    end
    object cdsDetailcreate_time: TDateTimeField
      FieldName = 'create_time'
    end
    object cdsDetailexplan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object cdsDetailpurrequestqty: TFloatField
      FieldName = 'purrequestqty'
    end
    object cdsDetailworkprocid: TIntegerField
      FieldName = 'workprocid'
    end
    object cdsDetaillength: TFloatField
      FieldName = 'length'
    end
    object cdsDetailwidth: TFloatField
      FieldName = 'width'
    end
    object cdsDetailheight: TFloatField
      FieldName = 'height'
    end
    object cdsDetailsquare: TFloatField
      FieldName = 'square'
    end
    object cdsDetailcubage: TFloatField
      FieldName = 'cubage'
    end
    object cdsDetailspecificweight: TFloatField
      FieldName = 'specificweight'
    end
    object cdsDetailcustom16: TFloatField
      FieldName = 'custom16'
    end
    object cdsDetailcustom17: TFloatField
      FieldName = 'custom17'
    end
    object cdsDetailcustom18: TFloatField
      FieldName = 'custom18'
    end
    object cdsDetailcustom19: TFloatField
      FieldName = 'custom19'
    end
    object cdsDetailcustom20: TFloatField
      FieldName = 'custom20'
    end
    object cdsDetailpartid: TIntegerField
      FieldName = 'partid'
    end
    object cdsDetailrawqty: TFloatField
      FieldName = 'rawqty'
    end
    object cdsDetailqtyformulaid: TIntegerField
      FieldName = 'qtyformulaid'
    end
    object cdsDetaillengthformulaid: TIntegerField
      FieldName = 'lengthformulaid'
    end
    object cdsDetailwidthformulaid: TIntegerField
      FieldName = 'widthformulaid'
    end
    object cdsDetailheightformulaid: TIntegerField
      FieldName = 'heightformulaid'
    end
    object cdsDetailwasterate: TFloatField
      FieldName = 'wasterate'
    end
    object cdsDetailproducttypename: TWideStringField
      FieldName = 'producttypename'
      Size = 60
    end
    object cdsDetailproducttypeid: TIntegerField
      FieldName = 'producttypeid'
    end
    object cdsDetailpartname: TWideStringField
      FieldName = 'partname'
      Size = 60
    end
    object cdsDetailformulaname: TWideStringField
      FieldName = 'formulaname'
      Size = 200
    end
    object cdsDetaillformulaname: TWideStringField
      FieldName = 'lformulaname'
      Size = 200
    end
    object cdsDetailwformulaname: TWideStringField
      FieldName = 'wformulaname'
      Size = 200
    end
    object cdsDetailhformulaname: TWideStringField
      FieldName = 'hformulaname'
      Size = 200
    end
    object cdsDetailunitname: TWideStringField
      FieldName = 'unitname'
      Size = 40
    end
    object cdsDetailbarcode: TWideStringField
      FieldName = 'barcode'
      Size = 40
    end
    object cdsDetailproductpic: TBlobField
      FieldName = 'productpic'
    end
    object cdsDetailp_kind: TIntegerField
      FieldName = 'p_kind'
    end
    object cdsDetailp_code: TStringField
      FieldName = 'p_code'
      Size = 40
    end
    object cdsDetailp_name: TWideStringField
      FieldName = 'p_name'
      Size = 60
    end
    object cdsDetailp_spec: TWideStringField
      FieldName = 'p_spec'
      Size = 60
    end
    object cdsDetailp_abname: TWideStringField
      FieldName = 'p_abname'
      Size = 60
    end
    object cdsDetailp_custom1: TStringField
      FieldName = 'p_custom1'
      Size = 100
    end
    object cdsDetailp_custom2: TStringField
      FieldName = 'p_custom2'
      Size = 100
    end
    object cdsDetailp_custom3: TStringField
      FieldName = 'p_custom3'
      Size = 100
    end
    object cdsDetailp_custom4: TStringField
      FieldName = 'p_custom4'
      Size = 100
    end
    object cdsDetailp_custom5: TStringField
      FieldName = 'p_custom5'
      Size = 100
    end
    object cdsDetailp_custom6: TStringField
      FieldName = 'p_custom6'
      Size = 100
    end
    object cdsDetailp_custom7: TStringField
      FieldName = 'p_custom7'
      Size = 100
    end
    object cdsDetailp_custom8: TStringField
      FieldName = 'p_custom8'
      Size = 100
    end
    object cdsDetailp_custom9: TStringField
      FieldName = 'p_custom9'
      Size = 100
    end
    object cdsDetailp_custom10: TStringField
      FieldName = 'p_custom10'
      Size = 100
    end
    object cdsDetailproducttrademarkid: TIntegerField
      FieldName = 'producttrademarkid'
    end
    object cdsDetailfactqty: TFloatField
      FieldName = 'factqty'
    end
    object cdsDetailbookqty: TFloatField
      FieldName = 'bookqty'
    end
    object cdsDetailbomrawqty: TFloatField
      FieldName = 'bomrawqty'
    end
    object cdsDetailsubcode: TStringField
      FieldName = 'subcode'
      Size = 100
    end
    object cdsDetailproducttypeid_1: TIntegerField
      FieldName = 'producttypeid_1'
    end
    object cdsDetailrawbomid: TIntegerField
      FieldName = 'rawbomid'
    end
    object cdsDetailp_calc: TByteField
      FieldName = 'p_calc'
    end
    object cdsDetailp_batch: TBooleanField
      FieldName = 'p_batch'
    end
    object cdsDetailunitrate: TFloatField
      FieldName = 'unitrate'
    end
    object cdsDetailunitassrate: TFloatField
      FieldName = 'unitassrate'
    end
    object cdsDetailunitassname: TWideStringField
      FieldName = 'unitassname'
      Size = 40
    end
  end
  inherited qryDetail: TUniQuery
    SQL.Strings = (
      'select d.* '
      
        '     ,p.kind p_kind,p.code p_code, p.name p_name, p.spec p_spec,' +
        ' p.abname p_abname'
      
        '     ,p.custom1 p_custom1, p.custom2 p_custom2, p.custom3 p_cust' +
        'om3, p.custom4 p_custom4, p.custom5 p_custom5 '
      
        '     ,p.custom6 p_custom6, p.custom7 p_custom7, p.custom8 p_cust' +
        'om8, p.custom9 p_custom9, p.custom10 p_custom10 '
      '     ,p.producttypeid, p.producttrademarkid'
      '     ,t.name as producttypename,p.producttypeid'
      '     ,pt.name partname,pf.calcexpressshow formulaname'
      
        '     ,plf.calcexpressshow lformulaname, pwf.calcexpressshow wfor' +
        'mulaname, phf.calcexpressshow hformulaname'
      '     ,u.unitname,u.barcode'
      '     ,pic.pic as productpic '
      '     from tb_mnfmachiningrawmaterials d '
      '     left join td_product p on d.productid=p.p_id '
      '     left join td_producttype t on p.producttypeid=t.id'
      '     left join td_unitprice u on d.unitid=u.unitid '
      '     left join td_productbompart pt on d.partid=pt.id'
      '     left join td_productbomformula pf on d.qtyformulaid=pf.id '
      
        '     left join td_productbomformula plf on d.lengthformulaid=pf.' +
        'id  '
      
        '     left join td_productbomformula pwf on d.widthformulaid=pf.i' +
        'd  '
      
        '     left join td_productbomformula phf on d.heightformulaid=pf.' +
        'id'
      
        '     left join td_productpic pic on d.productid=pic.productid an' +
        'd pic.defpic=1'
      '     where bid=0')
    object qryDetailbid: TIntegerField
      FieldName = 'bid'
    end
    object qryDetailbno: TIntegerField
      FieldName = 'bno'
    end
    object qryDetailbdtlno: TIntegerField
      FieldName = 'bdtlno'
    end
    object qryDetailproductid: TIntegerField
      FieldName = 'productid'
    end
    object qryDetailcprice: TFloatField
      FieldName = 'cprice'
    end
    object qryDetailbprice: TFloatField
      FieldName = 'bprice'
    end
    object qryDetailbquantity: TFloatField
      FieldName = 'bquantity'
    end
    object qryDetailamount: TFloatField
      FieldName = 'amount'
    end
    object qryDetailunitid: TIntegerField
      FieldName = 'unitid'
    end
    object qryDetailquantity: TFloatField
      FieldName = 'quantity'
    end
    object qryDetailprice: TFloatField
      FieldName = 'price'
    end
    object qryDetailunit1qty: TFloatField
      FieldName = 'unit1qty'
    end
    object qryDetailunit2qty: TFloatField
      FieldName = 'unit2qty'
    end
    object qryDetailunit3qty: TFloatField
      FieldName = 'unit3qty'
    end
    object qryDetailassqty: TFloatField
      FieldName = 'assqty'
    end
    object qryDetailrelationassqty: TFloatField
      FieldName = 'relationassqty'
    end
    object qryDetailbatchcode: TStringField
      FieldName = 'batchcode'
      Size = 200
    end
    object qryDetailproductdate: TDateTimeField
      FieldName = 'productdate'
    end
    object qryDetailvaliddate: TDateTimeField
      FieldName = 'validdate'
    end
    object qryDetaildrawqty: TFloatField
      FieldName = 'drawqty'
    end
    object qryDetaildrawamt: TFloatField
      FieldName = 'drawamt'
    end
    object qryDetailwastedqty: TFloatField
      FieldName = 'wastedqty'
    end
    object qryDetailwastedamt: TFloatField
      FieldName = 'wastedamt'
    end
    object qryDetailrelationcount: TByteField
      FieldName = 'relationcount'
    end
    object qryDetailrelationbtype: TIntegerField
      FieldName = 'relationbtype'
    end
    object qryDetailrelationbid: TIntegerField
      FieldName = 'relationbid'
    end
    object qryDetailrelationbno: TIntegerField
      FieldName = 'relationbno'
    end
    object qryDetailrelationpid: TIntegerField
      FieldName = 'relationpid'
    end
    object qryDetailrelationqty: TFloatField
      FieldName = 'relationqty'
    end
    object qryDetailioqty: TFloatField
      FieldName = 'ioqty'
    end
    object qryDetailcustom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object qryDetailcustom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object qryDetailcustom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object qryDetailcustom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object qryDetailcustom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object qryDetailcustom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object qryDetailcustom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object qryDetailcustom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object qryDetailcustom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object qryDetailcustom10: TStringField
      FieldName = 'custom10'
      Size = 200
    end
    object qryDetailcustom11: TFloatField
      FieldName = 'custom11'
    end
    object qryDetailcustom12: TFloatField
      FieldName = 'custom12'
    end
    object qryDetailcustom13: TFloatField
      FieldName = 'custom13'
    end
    object qryDetailcustom14: TFloatField
      FieldName = 'custom14'
    end
    object qryDetailcustom15: TFloatField
      FieldName = 'custom15'
    end
    object qryDetailcreate_time: TDateTimeField
      FieldName = 'create_time'
    end
    object qryDetailexplan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object qryDetailpurrequestqty: TFloatField
      FieldName = 'purrequestqty'
    end
    object qryDetailworkprocid: TIntegerField
      FieldName = 'workprocid'
    end
    object qryDetaillength: TFloatField
      FieldName = 'length'
    end
    object qryDetailwidth: TFloatField
      FieldName = 'width'
    end
    object qryDetailheight: TFloatField
      FieldName = 'height'
    end
    object qryDetailsquare: TFloatField
      FieldName = 'square'
    end
    object qryDetailcubage: TFloatField
      FieldName = 'cubage'
    end
    object qryDetailspecificweight: TFloatField
      FieldName = 'specificweight'
    end
    object qryDetailcustom16: TFloatField
      FieldName = 'custom16'
    end
    object qryDetailcustom17: TFloatField
      FieldName = 'custom17'
    end
    object qryDetailcustom18: TFloatField
      FieldName = 'custom18'
    end
    object qryDetailcustom19: TFloatField
      FieldName = 'custom19'
    end
    object qryDetailcustom20: TFloatField
      FieldName = 'custom20'
    end
    object qryDetailpartid: TIntegerField
      FieldName = 'partid'
    end
    object qryDetailrawqty: TFloatField
      FieldName = 'rawqty'
    end
    object qryDetailqtyformulaid: TIntegerField
      FieldName = 'qtyformulaid'
    end
    object qryDetaillengthformulaid: TIntegerField
      FieldName = 'lengthformulaid'
    end
    object qryDetailwidthformulaid: TIntegerField
      FieldName = 'widthformulaid'
    end
    object qryDetailheightformulaid: TIntegerField
      FieldName = 'heightformulaid'
    end
    object qryDetailwasterate: TFloatField
      FieldName = 'wasterate'
    end
    object qryDetailproducttypename: TWideStringField
      FieldName = 'producttypename'
      Size = 60
    end
    object qryDetailproducttypeid: TIntegerField
      FieldName = 'producttypeid'
    end
    object qryDetailpartname: TWideStringField
      FieldName = 'partname'
      Size = 60
    end
    object qryDetailformulaname: TWideStringField
      FieldName = 'formulaname'
      Size = 200
    end
    object qryDetaillformulaname: TWideStringField
      FieldName = 'lformulaname'
      Size = 200
    end
    object qryDetailwformulaname: TWideStringField
      FieldName = 'wformulaname'
      Size = 200
    end
    object qryDetailhformulaname: TWideStringField
      FieldName = 'hformulaname'
      Size = 200
    end
    object qryDetailunitname: TWideStringField
      FieldName = 'unitname'
      Size = 40
    end
    object qryDetailbarcode: TWideStringField
      FieldName = 'barcode'
      Size = 40
    end
    object qryDetailproductpic: TBlobField
      FieldName = 'productpic'
    end
    object qryDetailp_kind: TIntegerField
      FieldName = 'p_kind'
    end
    object qryDetailp_code: TStringField
      FieldName = 'p_code'
      Size = 40
    end
    object qryDetailp_name: TWideStringField
      FieldName = 'p_name'
      Size = 60
    end
    object qryDetailp_spec: TWideStringField
      FieldName = 'p_spec'
      Size = 60
    end
    object qryDetailp_abname: TWideStringField
      FieldName = 'p_abname'
      Size = 60
    end
    object qryDetailp_custom1: TStringField
      FieldName = 'p_custom1'
      Size = 100
    end
    object qryDetailp_custom2: TStringField
      FieldName = 'p_custom2'
      Size = 100
    end
    object qryDetailp_custom3: TStringField
      FieldName = 'p_custom3'
      Size = 100
    end
    object qryDetailp_custom4: TStringField
      FieldName = 'p_custom4'
      Size = 100
    end
    object qryDetailp_custom5: TStringField
      FieldName = 'p_custom5'
      Size = 100
    end
    object qryDetailp_custom6: TStringField
      FieldName = 'p_custom6'
      Size = 100
    end
    object qryDetailp_custom7: TStringField
      FieldName = 'p_custom7'
      Size = 100
    end
    object qryDetailp_custom8: TStringField
      FieldName = 'p_custom8'
      Size = 100
    end
    object qryDetailp_custom9: TStringField
      FieldName = 'p_custom9'
      Size = 100
    end
    object qryDetailp_custom10: TStringField
      FieldName = 'p_custom10'
      Size = 100
    end
    object qryDetailproducttrademarkid: TIntegerField
      FieldName = 'producttrademarkid'
    end
    object qryDetailfactqty: TFloatField
      FieldName = 'factqty'
    end
    object qryDetailbookqty: TFloatField
      FieldName = 'bookqty'
    end
    object qryDetailproducttypeid_1: TIntegerField
      FieldName = 'producttypeid_1'
    end
    object qryDetailbomrawqty: TFloatField
      FieldName = 'bomrawqty'
    end
    object qryDetailsubcode: TStringField
      FieldName = 'subcode'
      Size = 100
    end
    object qryDetailrawbomid: TIntegerField
      FieldName = 'rawbomid'
    end
    object qryDetailp_calc: TByteField
      FieldName = 'p_calc'
    end
    object qryDetailp_batch: TBooleanField
      FieldName = 'p_batch'
    end
    object qryDetailunitrate: TFloatField
      FieldName = 'unitrate'
    end
    object qryDetailunitassrate: TFloatField
      FieldName = 'unitassrate'
    end
    object qryDetailunitassname: TWideStringField
      FieldName = 'unitassname'
      Size = 40
    end
  end
  inherited MainDataSet: TUniQuery
    SQL.Strings = (
      'select top 1 * from tb_mnfmachining m where 1=1')
    Left = 44
    Top = 177
    object MainDataSetbid: TIntegerField
      FieldName = 'bid'
    end
    object MainDataSetbkind: TIntegerField
      FieldName = 'bkind'
    end
    object MainDataSetbstate: TIntegerField
      FieldName = 'bstate'
    end
    object MainDataSetbcode: TStringField
      FieldName = 'bcode'
      Size = 40
    end
    object MainDataSetbdate: TDateTimeField
      FieldName = 'bdate'
    end
    object MainDataSetworkshopid: TIntegerField
      FieldName = 'workshopid'
    end
    object MainDataSetfilid: TIntegerField
      FieldName = 'filid'
    end
    object MainDataSetdeptid: TIntegerField
      FieldName = 'deptid'
    end
    object MainDataSetcreate_by: TIntegerField
      FieldName = 'create_by'
    end
    object MainDataSetcheck_by: TIntegerField
      FieldName = 'check_by'
    end
    object MainDataSetvoucherid: TIntegerField
      FieldName = 'voucherid'
    end
    object MainDataSetamount: TFloatField
      FieldName = 'amount'
    end
    object MainDataSetrelationcount: TByteField
      FieldName = 'relationcount'
    end
    object MainDataSetrelationbid: TIntegerField
      FieldName = 'relationbid'
    end
    object MainDataSetpause: TBooleanField
      FieldName = 'pause'
    end
    object MainDataSetcustom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object MainDataSetcustom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object MainDataSetcustom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object MainDataSetcustom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object MainDataSetcustom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object MainDataSetcustom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object MainDataSetcustom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object MainDataSetcustom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object MainDataSetcustom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object MainDataSetcustom10: TStringField
      FieldName = 'custom10'
      Size = 200
    end
    object MainDataSetcustom11: TFloatField
      FieldName = 'custom11'
    end
    object MainDataSetcustom12: TFloatField
      FieldName = 'custom12'
    end
    object MainDataSetcustom13: TFloatField
      FieldName = 'custom13'
    end
    object MainDataSetcustom14: TFloatField
      FieldName = 'custom14'
    end
    object MainDataSetcustom15: TFloatField
      FieldName = 'custom15'
    end
    object MainDataSetcreate_time: TDateTimeField
      FieldName = 'create_time'
    end
    object MainDataSetupdate_time: TDateTimeField
      FieldName = 'update_time'
    end
    object MainDataSetcheck_time: TDateTimeField
      FieldName = 'check_time'
    end
    object MainDataSetremark: TStringField
      FieldName = 'remark'
      Size = 200
    end
    object MainDataSetrelationbtype: TIntegerField
      FieldName = 'relationbtype'
    end
    object MainDataSetprojectid: TIntegerField
      FieldName = 'projectid'
    end
    object MainDataSetpjcode: TWideStringField
      FieldName = 'pjcode'
      Size = 40
    end
    object MainDataSetpjname: TWideStringField
      FieldName = 'pjname'
      Size = 60
    end
  end
  inherited cdsDetail2: TClientDataSet
    object cdsDetail2bid: TIntegerField
      FieldName = 'bid'
    end
    object cdsDetail2bno: TIntegerField
      FieldName = 'bno'
    end
    object cdsDetail2borderno: TIntegerField
      FieldName = 'borderno'
    end
    object cdsDetail2productid: TIntegerField
      FieldName = 'productid'
    end
    object cdsDetail2bomid: TIntegerField
      FieldName = 'bomid'
    end
    object cdsDetail2cprice: TFloatField
      FieldName = 'cprice'
    end
    object cdsDetail2bprice: TFloatField
      FieldName = 'bprice'
    end
    object cdsDetail2bquantity: TFloatField
      FieldName = 'bquantity'
    end
    object cdsDetail2amount: TFloatField
      FieldName = 'amount'
    end
    object cdsDetail2unitid: TIntegerField
      FieldName = 'unitid'
    end
    object cdsDetail2quantity: TFloatField
      FieldName = 'quantity'
    end
    object cdsDetail2price: TFloatField
      FieldName = 'price'
    end
    object cdsDetail2unit1qty: TFloatField
      FieldName = 'unit1qty'
    end
    object cdsDetail2unit2qty: TFloatField
      FieldName = 'unit2qty'
    end
    object cdsDetail2unit3qty: TFloatField
      FieldName = 'unit3qty'
    end
    object cdsDetail2assqty: TFloatField
      FieldName = 'assqty'
    end
    object cdsDetail2workshopid: TIntegerField
      FieldName = 'workshopid'
    end
    object cdsDetail2machineid: TIntegerField
      FieldName = 'machineid'
    end
    object cdsDetail2empid: TIntegerField
      FieldName = 'empid'
    end
    object cdsDetail2plandate: TDateTimeField
      FieldName = 'plandate'
    end
    object cdsDetail2manhour: TFloatField
      FieldName = 'manhour'
    end
    object cdsDetail2completeddate: TDateTimeField
      FieldName = 'completeddate'
    end
    object cdsDetail2completedqty: TFloatField
      FieldName = 'completedqty'
    end
    object cdsDetail2makingqty: TFloatField
      FieldName = 'makingqty'
    end
    object cdsDetail2wasterqty: TFloatField
      FieldName = 'wasterqty'
    end
    object cdsDetail2pause: TBooleanField
      FieldName = 'pause'
    end
    object cdsDetail2relationassqty: TFloatField
      FieldName = 'relationassqty'
    end
    object cdsDetail2batchcode: TStringField
      FieldName = 'batchcode'
      Size = 200
    end
    object cdsDetail2productdate: TDateTimeField
      FieldName = 'productdate'
    end
    object cdsDetail2validdate: TDateTimeField
      FieldName = 'validdate'
    end
    object cdsDetail2relationcount: TByteField
      FieldName = 'relationcount'
    end
    object cdsDetail2relationbtype: TIntegerField
      FieldName = 'relationbtype'
    end
    object cdsDetail2relationbid: TIntegerField
      FieldName = 'relationbid'
    end
    object cdsDetail2relationbno: TIntegerField
      FieldName = 'relationbno'
    end
    object cdsDetail2relationpid: TIntegerField
      FieldName = 'relationpid'
    end
    object cdsDetail2relationqty: TFloatField
      FieldName = 'relationqty'
    end
    object cdsDetail2saleorderbcode: TStringField
      FieldName = 'saleorderbcode'
      Size = 60
    end
    object cdsDetail2ioqty: TFloatField
      FieldName = 'ioqty'
    end
    object cdsDetail2custom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object cdsDetail2custom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object cdsDetail2custom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object cdsDetail2custom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object cdsDetail2custom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object cdsDetail2custom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object cdsDetail2custom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object cdsDetail2custom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object cdsDetail2custom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object cdsDetail2custom10: TStringField
      FieldName = 'custom10'
      Size = 200
    end
    object cdsDetail2custom11: TFloatField
      FieldName = 'custom11'
    end
    object cdsDetail2custom12: TFloatField
      FieldName = 'custom12'
    end
    object cdsDetail2custom13: TFloatField
      FieldName = 'custom13'
    end
    object cdsDetail2custom14: TFloatField
      FieldName = 'custom14'
    end
    object cdsDetail2custom15: TFloatField
      FieldName = 'custom15'
    end
    object cdsDetail2create_time: TDateTimeField
      FieldName = 'create_time'
    end
    object cdsDetail2explan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object cdsDetail2length: TFloatField
      FieldName = 'length'
    end
    object cdsDetail2width: TFloatField
      FieldName = 'width'
    end
    object cdsDetail2height: TFloatField
      FieldName = 'height'
    end
    object cdsDetail2square: TFloatField
      FieldName = 'square'
    end
    object cdsDetail2cubage: TFloatField
      FieldName = 'cubage'
    end
    object cdsDetail2specificweight: TFloatField
      FieldName = 'specificweight'
    end
    object cdsDetail2custom16: TFloatField
      FieldName = 'custom16'
    end
    object cdsDetail2custom17: TFloatField
      FieldName = 'custom17'
    end
    object cdsDetail2custom18: TFloatField
      FieldName = 'custom18'
    end
    object cdsDetail2custom19: TFloatField
      FieldName = 'custom19'
    end
    object cdsDetail2custom20: TFloatField
      FieldName = 'custom20'
    end
    object cdsDetail2custom21: TWideStringField
      FieldName = 'custom21'
    end
    object cdsDetail2custom22: TWideStringField
      FieldName = 'custom22'
    end
    object cdsDetail2custom23: TWideStringField
      FieldName = 'custom23'
    end
    object cdsDetail2custom24: TWideStringField
      FieldName = 'custom24'
    end
    object cdsDetail2custom25: TWideStringField
      FieldName = 'custom25'
    end
    object cdsDetail2custom26: TWideStringField
      FieldName = 'custom26'
    end
    object cdsDetail2custom27: TWideStringField
      FieldName = 'custom27'
    end
    object cdsDetail2custom28: TWideStringField
      FieldName = 'custom28'
    end
    object cdsDetail2custom29: TWideStringField
      FieldName = 'custom29'
    end
    object cdsDetail2custom30: TWideStringField
      FieldName = 'custom30'
    end
    object cdsDetail2custom31: TFloatField
      FieldName = 'custom31'
    end
    object cdsDetail2custom32: TFloatField
      FieldName = 'custom32'
    end
    object cdsDetail2custom33: TFloatField
      FieldName = 'custom33'
    end
    object cdsDetail2custom34: TFloatField
      FieldName = 'custom34'
    end
    object cdsDetail2custom35: TFloatField
      FieldName = 'custom35'
    end
    object cdsDetail2custom36: TFloatField
      FieldName = 'custom36'
    end
    object cdsDetail2custom37: TFloatField
      FieldName = 'custom37'
    end
    object cdsDetail2custom38: TFloatField
      FieldName = 'custom38'
    end
    object cdsDetail2custom39: TFloatField
      FieldName = 'custom39'
    end
    object cdsDetail2custom40: TFloatField
      FieldName = 'custom40'
    end
    object cdsDetail2procqty: TFloatField
      FieldName = 'procqty'
    end
    object cdsDetail2procedqty: TFloatField
      FieldName = 'procedqty'
    end
    object cdsDetail2procwasterqty: TFloatField
      FieldName = 'procwasterqty'
    end
    object cdsDetail2pieceprice: TFloatField
      FieldName = 'pieceprice'
    end
    object cdsDetail2p_code: TStringField
      FieldName = 'p_code'
      Size = 40
    end
    object cdsDetail2p_name: TWideStringField
      FieldName = 'p_name'
      Size = 60
    end
    object cdsDetail2p_spec: TWideStringField
      FieldName = 'p_spec'
      Size = 60
    end
    object cdsDetail2p_abname: TWideStringField
      FieldName = 'p_abname'
      Size = 60
    end
    object cdsDetail2p_custom1: TStringField
      FieldName = 'p_custom1'
      Size = 100
    end
    object cdsDetail2p_custom2: TStringField
      FieldName = 'p_custom2'
      Size = 100
    end
    object cdsDetail2p_custom3: TStringField
      FieldName = 'p_custom3'
      Size = 100
    end
    object cdsDetail2p_custom4: TStringField
      FieldName = 'p_custom4'
      Size = 100
    end
    object cdsDetail2p_custom5: TStringField
      FieldName = 'p_custom5'
      Size = 100
    end
    object cdsDetail2p_custom6: TStringField
      FieldName = 'p_custom6'
      Size = 100
    end
    object cdsDetail2p_custom7: TStringField
      FieldName = 'p_custom7'
      Size = 100
    end
    object cdsDetail2p_custom8: TStringField
      FieldName = 'p_custom8'
      Size = 100
    end
    object cdsDetail2p_custom9: TStringField
      FieldName = 'p_custom9'
      Size = 100
    end
    object cdsDetail2p_custom10: TStringField
      FieldName = 'p_custom10'
      Size = 100
    end
    object cdsDetail2producttypeid: TIntegerField
      FieldName = 'producttypeid'
    end
    object cdsDetail2producttrademarkid: TIntegerField
      FieldName = 'producttrademarkid'
    end
    object cdsDetail2relationbcode: TStringField
      FieldName = 'relationbcode'
      Size = 30
    end
    object cdsDetail2unitname: TWideStringField
      FieldName = 'unitname'
      Size = 40
    end
    object cdsDetail2barcode: TWideStringField
      FieldName = 'barcode'
      Size = 40
    end
    object cdsDetail2workshopname: TStringField
      FieldName = 'workshopname'
      Size = 60
    end
    object cdsDetail2bomcode: TStringField
      FieldName = 'bomcode'
      Size = 40
    end
    object cdsDetail2bomname: TStringField
      FieldName = 'bomname'
      Size = 60
    end
    object cdsDetail2machinename: TStringField
      FieldName = 'machinename'
      Size = 60
    end
    object cdsDetail2factqty: TFloatField
      FieldName = 'factqty'
    end
    object cdsDetail2bookqty: TFloatField
      FieldName = 'bookqty'
    end
    object cdsDetail2productpic: TBlobField
      FieldName = 'productpic'
    end
    object cdsDetail2bomqty: TFloatField
      FieldName = 'bomqty'
    end
    object cdsDetail2subcode: TStringField
      FieldName = 'subcode'
      Size = 100
    end
    object cdsDetail2unitrate: TFloatField
      FieldName = 'unitrate'
    end
    object cdsDetail2unitassrate: TFloatField
      FieldName = 'unitassrate'
    end
    object cdsDetail2unitassname: TWideStringField
      FieldName = 'unitassname'
      Size = 40
    end
  end
  inherited pmDetail2: TPopupMenu
    Left = 476
    Top = 153
    object muChoiceSame: TMenuItem [5]
      Caption = #22810#36873#36710#38388#30456#21516
      OnClick = muChoiceSameClick
    end
    object muUnderSame: TMenuItem [6]
      Caption = #20197#19979#36710#38388#30456#21516
      OnClick = muUnderSameClick
    end
    inherited muListAllDtlDetail: TMenuItem
      Caption = #26597#30475#20840#37096#21152#24037#36135#21697#21407#26448#26009
    end
    object muListAllProc: TMenuItem
      Caption = #26597#30475#20840#37096#21152#24037#36135#21697#24037#24207
      OnClick = muListAllProcClick
    end
    object muPart: TMenuItem
      Caption = '-'
    end
    object muProductCompleted: TMenuItem
      Caption = #23436#24037#22788#29702
      OnClick = muProductCompletedClick
    end
    object muProductUnCompleted: TMenuItem
      Caption = #21453#23436#24037#22788#29702
      OnClick = muProductUnCompletedClick
    end
    object muPart1: TMenuItem
      Caption = '-'
    end
    object muMachine: TMenuItem
      Caption = #36873#25321#29983#20135#35774#22791
      OnClick = muMachineClick
    end
    object muReCalcRawMeasure: TMenuItem
      Caption = #37325#26032#35745#31639#29289#26009#24230#37327#21333#20301
      OnClick = muReCalcRawMeasureClick
    end
    object muDtlParkRM1: TMenuItem
      Caption = '-'
    end
    object muRMAccFix: TMenuItem
      Caption = #37325#26032#21152#24037
      object muRMAccCompletedFix: TMenuItem
        Tag = 11
        Caption = #20877#21152#24037#24050#39564#25910#25104#21697
        ImageIndex = 0
        OnClick = muRMAccCompletedFixClick
      end
      object muRMAccWasterFix: TMenuItem
        Tag = 12
        Caption = #36820#20462#24050#39564#25910#24223#21697
        ImageIndex = 0
        OnClick = muRMAccCompletedFixClick
      end
    end
    object muRMUnAccept: TMenuItem
      Tag = 2
      Caption = #26410#39564#25910#37325#26032#19979#36798#29983#20135
      ImageIndex = 0
      OnClick = muRMAccCompletedFixClick
    end
    object muRMAll: TMenuItem
      Tag = 3
      Caption = #20840#37096#25968#37327#37325#26032#19979#36798#29983#20135
      ImageIndex = 0
      Visible = False
      OnClick = muRMAccCompletedFixClick
    end
    object muDtlParkRM2: TMenuItem
      Caption = '-'
    end
    object muRMAccFixPause: TMenuItem
      Caption = #23436#24037#24182#37325#26032#21152#24037
      object muRMAccCompletedFixPause: TMenuItem
        Tag = 11
        Caption = #23436#24037#24182#20877#21152#24037#24050#39564#25910#25104#21697
        ImageIndex = 1
        OnClick = muRMAccCompletedFixClick
      end
      object muRMAccWasterFixPause: TMenuItem
        Tag = 12
        Caption = #23436#24037#24182#36820#20462#24050#39564#25910#24223#21697
        ImageIndex = 1
      end
    end
    object muRMUnAcceptPause: TMenuItem
      Tag = 2
      Caption = #23436#24037#24182#26410#39564#25910#37325#26032#19979#36798#29983#20135
      ImageIndex = 1
      OnClick = muRMAccCompletedFixClick
    end
    object muRMAllPause: TMenuItem
      Tag = 3
      Caption = #23436#24037#24182#20840#37096#25968#37327#37325#26032#19979#36798#29983#20135
      ImageIndex = 1
      Visible = False
      OnClick = muRMAccCompletedFixClick
    end
    object muDtlParkRM3: TMenuItem
      Caption = '-'
    end
    object muAllMakeSubProduct: TMenuItem
      Caption = #20840#37096#29983#20135#19979#36798#23376#23385#20214#21322#25104#21697
      OnClick = muAllMakeSubProductClick
    end
    object muAllReCalcSubRawMeasure: TMenuItem
      Caption = #20840#37096#37325#26032#35745#31639#23376#23385#20214#29289#26009#24230#37327#21333#20301
      OnClick = muAllReCalcSubRawMeasureClick
    end
    object muMakeSubProduct: TMenuItem
      Caption = #29983#20135#19979#36798#23376#23385#20214#21322#25104#21697
      OnClick = muMakeSubProductClick
    end
    object muReCalcSubRawMeasure: TMenuItem
      Caption = #37325#26032#35745#31639#23376#23385#20214#29289#26009#24230#37327#21333#20301
      OnClick = muReCalcSubRawMeasureClick
    end
  end
  inherited qryDetail2: TUniQuery
    SQL.Strings = (
      'select d.*'
      
        '     ,p.code p_code, p.name p_name, p.spec p_spec, p.abname p_ab' +
        'name'
      
        '     ,p.custom1 p_custom1, p.custom2 p_custom2, p.custom3 p_cust' +
        'om3, p.custom4 p_custom4, p.custom5 p_custom5 '
      
        '     ,p.custom6 p_custom6, p.custom7 p_custom7, p.custom8 p_cust' +
        'om8, p.custom9 p_custom9, p.custom10 p_custom10 '
      '     ,p.producttypeid, p.producttrademarkid'
      
        '     ,dbo.f_getrelationbcode(d.relationbtype,d.relationbid) as r' +
        'elationbcode'
      '     ,u.unitname,u.barcode'
      '     ,w.name workshopname, v.code bomcode, v.name bomname'
      '     ,h.name machinename'
      '     ,pic.pic as productpic '
      '     from tb_mnfmachiningdtl d '
      '     left join td_product p on d.productid=p.p_id '
      '     left join td_producttype t on p.producttypeid=t.id'
      '     left join td_productbomver v on d.bomid=v.bomid '
      '     left join td_unitprice u on d.unitid=u.unitid '
      '     left join td_workshop w on d.workshopid=w.workshopid'
      '     left join td_machine h on d.machineid=h.machineid'
      
        '     left join td_productpic pic on d.productid=pic.productid an' +
        'd pic.defpic=1'
      '     where bid=0')
    object qryDetail2bid: TIntegerField
      FieldName = 'bid'
    end
    object qryDetail2bno: TIntegerField
      FieldName = 'bno'
    end
    object qryDetail2borderno: TIntegerField
      FieldName = 'borderno'
    end
    object qryDetail2productid: TIntegerField
      FieldName = 'productid'
    end
    object qryDetail2bomid: TIntegerField
      FieldName = 'bomid'
    end
    object qryDetail2cprice: TFloatField
      FieldName = 'cprice'
    end
    object qryDetail2bprice: TFloatField
      FieldName = 'bprice'
    end
    object qryDetail2bquantity: TFloatField
      FieldName = 'bquantity'
    end
    object qryDetail2amount: TFloatField
      FieldName = 'amount'
    end
    object qryDetail2unitid: TIntegerField
      FieldName = 'unitid'
    end
    object qryDetail2quantity: TFloatField
      FieldName = 'quantity'
    end
    object qryDetail2price: TFloatField
      FieldName = 'price'
    end
    object qryDetail2unit1qty: TFloatField
      FieldName = 'unit1qty'
    end
    object qryDetail2unit2qty: TFloatField
      FieldName = 'unit2qty'
    end
    object qryDetail2unit3qty: TFloatField
      FieldName = 'unit3qty'
    end
    object qryDetail2assqty: TFloatField
      FieldName = 'assqty'
    end
    object qryDetail2workshopid: TIntegerField
      FieldName = 'workshopid'
    end
    object qryDetail2machineid: TIntegerField
      FieldName = 'machineid'
    end
    object qryDetail2empid: TIntegerField
      FieldName = 'empid'
    end
    object qryDetail2plandate: TDateTimeField
      FieldName = 'plandate'
    end
    object qryDetail2manhour: TFloatField
      FieldName = 'manhour'
    end
    object qryDetail2completeddate: TDateTimeField
      FieldName = 'completeddate'
    end
    object qryDetail2completedqty: TFloatField
      FieldName = 'completedqty'
    end
    object qryDetail2makingqty: TFloatField
      FieldName = 'makingqty'
    end
    object qryDetail2wasterqty: TFloatField
      FieldName = 'wasterqty'
    end
    object qryDetail2pause: TBooleanField
      FieldName = 'pause'
    end
    object qryDetail2relationassqty: TFloatField
      FieldName = 'relationassqty'
    end
    object qryDetail2batchcode: TStringField
      FieldName = 'batchcode'
      Size = 200
    end
    object qryDetail2productdate: TDateTimeField
      FieldName = 'productdate'
    end
    object qryDetail2validdate: TDateTimeField
      FieldName = 'validdate'
    end
    object qryDetail2relationcount: TByteField
      FieldName = 'relationcount'
    end
    object qryDetail2relationbtype: TIntegerField
      FieldName = 'relationbtype'
    end
    object qryDetail2relationbid: TIntegerField
      FieldName = 'relationbid'
    end
    object qryDetail2relationbno: TIntegerField
      FieldName = 'relationbno'
    end
    object qryDetail2relationpid: TIntegerField
      FieldName = 'relationpid'
    end
    object qryDetail2relationqty: TFloatField
      FieldName = 'relationqty'
    end
    object qryDetail2saleorderbcode: TStringField
      FieldName = 'saleorderbcode'
      Size = 60
    end
    object qryDetail2ioqty: TFloatField
      FieldName = 'ioqty'
    end
    object qryDetail2custom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object qryDetail2custom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object qryDetail2custom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object qryDetail2custom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object qryDetail2custom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object qryDetail2custom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object qryDetail2custom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object qryDetail2custom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object qryDetail2custom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object qryDetail2custom10: TStringField
      FieldName = 'custom10'
      Size = 200
    end
    object qryDetail2custom11: TFloatField
      FieldName = 'custom11'
    end
    object qryDetail2custom12: TFloatField
      FieldName = 'custom12'
    end
    object qryDetail2custom13: TFloatField
      FieldName = 'custom13'
    end
    object qryDetail2custom14: TFloatField
      FieldName = 'custom14'
    end
    object qryDetail2custom15: TFloatField
      FieldName = 'custom15'
    end
    object qryDetail2create_time: TDateTimeField
      FieldName = 'create_time'
    end
    object qryDetail2explan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object qryDetail2length: TFloatField
      FieldName = 'length'
    end
    object qryDetail2width: TFloatField
      FieldName = 'width'
    end
    object qryDetail2height: TFloatField
      FieldName = 'height'
    end
    object qryDetail2square: TFloatField
      FieldName = 'square'
    end
    object qryDetail2cubage: TFloatField
      FieldName = 'cubage'
    end
    object qryDetail2specificweight: TFloatField
      FieldName = 'specificweight'
    end
    object qryDetail2custom16: TFloatField
      FieldName = 'custom16'
    end
    object qryDetail2custom17: TFloatField
      FieldName = 'custom17'
    end
    object qryDetail2custom18: TFloatField
      FieldName = 'custom18'
    end
    object qryDetail2custom19: TFloatField
      FieldName = 'custom19'
    end
    object qryDetail2custom20: TFloatField
      FieldName = 'custom20'
    end
    object qryDetail2custom21: TWideStringField
      FieldName = 'custom21'
    end
    object qryDetail2custom22: TWideStringField
      FieldName = 'custom22'
    end
    object qryDetail2custom23: TWideStringField
      FieldName = 'custom23'
    end
    object qryDetail2custom24: TWideStringField
      FieldName = 'custom24'
    end
    object qryDetail2custom25: TWideStringField
      FieldName = 'custom25'
    end
    object qryDetail2custom26: TWideStringField
      FieldName = 'custom26'
    end
    object qryDetail2custom27: TWideStringField
      FieldName = 'custom27'
    end
    object qryDetail2custom28: TWideStringField
      FieldName = 'custom28'
    end
    object qryDetail2custom29: TWideStringField
      FieldName = 'custom29'
    end
    object qryDetail2custom30: TWideStringField
      FieldName = 'custom30'
    end
    object qryDetail2custom31: TFloatField
      FieldName = 'custom31'
    end
    object qryDetail2custom32: TFloatField
      FieldName = 'custom32'
    end
    object qryDetail2custom33: TFloatField
      FieldName = 'custom33'
    end
    object qryDetail2custom34: TFloatField
      FieldName = 'custom34'
    end
    object qryDetail2custom35: TFloatField
      FieldName = 'custom35'
    end
    object qryDetail2custom36: TFloatField
      FieldName = 'custom36'
    end
    object qryDetail2custom37: TFloatField
      FieldName = 'custom37'
    end
    object qryDetail2custom38: TFloatField
      FieldName = 'custom38'
    end
    object qryDetail2custom39: TFloatField
      FieldName = 'custom39'
    end
    object qryDetail2custom40: TFloatField
      FieldName = 'custom40'
    end
    object qryDetail2procqty: TFloatField
      FieldName = 'procqty'
    end
    object qryDetail2procedqty: TFloatField
      FieldName = 'procedqty'
    end
    object qryDetail2procwasterqty: TFloatField
      FieldName = 'procwasterqty'
    end
    object qryDetail2pieceprice: TFloatField
      FieldName = 'pieceprice'
    end
    object qryDetail2p_code: TStringField
      FieldName = 'p_code'
      Size = 40
    end
    object qryDetail2p_name: TWideStringField
      FieldName = 'p_name'
      Size = 60
    end
    object qryDetail2p_spec: TWideStringField
      FieldName = 'p_spec'
      Size = 60
    end
    object qryDetail2p_abname: TWideStringField
      FieldName = 'p_abname'
      Size = 60
    end
    object qryDetail2p_custom1: TStringField
      FieldName = 'p_custom1'
      Size = 100
    end
    object qryDetail2p_custom2: TStringField
      FieldName = 'p_custom2'
      Size = 100
    end
    object qryDetail2p_custom3: TStringField
      FieldName = 'p_custom3'
      Size = 100
    end
    object qryDetail2p_custom4: TStringField
      FieldName = 'p_custom4'
      Size = 100
    end
    object qryDetail2p_custom5: TStringField
      FieldName = 'p_custom5'
      Size = 100
    end
    object qryDetail2p_custom6: TStringField
      FieldName = 'p_custom6'
      Size = 100
    end
    object qryDetail2p_custom7: TStringField
      FieldName = 'p_custom7'
      Size = 100
    end
    object qryDetail2p_custom8: TStringField
      FieldName = 'p_custom8'
      Size = 100
    end
    object qryDetail2p_custom9: TStringField
      FieldName = 'p_custom9'
      Size = 100
    end
    object qryDetail2p_custom10: TStringField
      FieldName = 'p_custom10'
      Size = 100
    end
    object qryDetail2producttypeid: TIntegerField
      FieldName = 'producttypeid'
    end
    object qryDetail2producttrademarkid: TIntegerField
      FieldName = 'producttrademarkid'
    end
    object qryDetail2relationbcode: TStringField
      FieldName = 'relationbcode'
      Size = 30
    end
    object qryDetail2unitname: TWideStringField
      FieldName = 'unitname'
      Size = 40
    end
    object qryDetail2barcode: TWideStringField
      FieldName = 'barcode'
      Size = 40
    end
    object qryDetail2workshopname: TStringField
      FieldName = 'workshopname'
      Size = 60
    end
    object qryDetail2bomcode: TStringField
      FieldName = 'bomcode'
      Size = 40
    end
    object qryDetail2bomname: TStringField
      FieldName = 'bomname'
      Size = 60
    end
    object qryDetail2machinename: TStringField
      FieldName = 'machinename'
      Size = 60
    end
    object qryDetail2factqty: TFloatField
      FieldName = 'factqty'
    end
    object qryDetail2bookqty: TFloatField
      FieldName = 'bookqty'
    end
    object qryDetail2productpic: TBlobField
      FieldName = 'productpic'
    end
    object qryDetail2bomqty: TFloatField
      FieldName = 'bomqty'
    end
    object qryDetail2subcode: TStringField
      FieldName = 'subcode'
      Size = 100
    end
    object qryDetail2unitassname: TWideStringField
      FieldName = 'unitassname'
      Size = 40
    end
    object qryDetail2unitrate: TFloatField
      FieldName = 'unitrate'
    end
    object qryDetail2unitassrate: TFloatField
      FieldName = 'unitassrate'
    end
  end
  object qryRawSub: TUniQuery
    SQLInsert.Strings = (
      'Insert into TB_MNFMACHININGRAWSUB(bid,'
      'bno,'
      'bdtlno,'
      'subproductid,'
      'orderno,'
      'rate,'
      'quantity,'
      'drawqty,'
      'wastedqty,'
      'assqty,'
      'explan'
      ')'
      'Values'
      '(:bid,'
      ':bno,'
      ':bdtlno,'
      ':subproductid,'
      ':orderno,'
      ':rate,'
      ':quantity,'
      ':drawqty,'
      ':wastedqty,'
      ':assqty,'
      ':explan)')
    SQLDelete.Strings = (
      
        'Delete from TB_MNFMACHININGRAWSUB where bid=:OLD_bid and bno=:OL' +
        'D_bno and bdtlno=:OLD_bdtlno and subproductid=:OLD_subproductid')
    SQLUpdate.Strings = (
      'Update TB_MNFMACHININGRAWSUB set '
      'bid=:bid,'
      'bno=:bno,'
      'bdtlno=:bdtlno,'
      'subproductid=:subproductid,'
      'orderno=:orderno,'
      'rate=:rate,'
      'quantity=:quantity,'
      'drawqty=:drawqty,'
      'wastedqty=:wastedqty,'
      'assqty=:assqty,'
      'explan=:explan'
      
        ' where bid=:OLD_bid and bno=:OLD_bno and bdtlno=:OLD_bdtlno and ' +
        'subproductid=:OLD_subproductid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select m.*,'
      '     p.code as p_code,p.name as p_name,p.spec as p_spec,'
      
        '     u.unitname as unitname,l.unitname unitassname,m.quantity as' +
        ' needqty'
      '     from tb_mnfmachiningrawsub m'
      '     left join td_product p on p.p_id=m.subproductid'
      
        '     left  join td_unitprice u on u.productid=m.subproductid and' +
        ' baseunit=1'
      
        '     left join td_unitprice l on (l.u_no=0 and M.subproductid=l.' +
        'productid)'
      '     where m.bid=:bid')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 268
    Top = 421
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bid'
        Value = nil
      end>
  end
  object qryDtlProc: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tb_mnfmachproc'
      
        '  (bid, bno, bdtlno, productid, workprocid, procorderno, beginpr' +
        'oc, endproc, bprice, bquantity, amount, unitid, quantity, price,' +
        ' unit1qty, unit2qty, unit3qty, assqty, empid, workshopid, workce' +
        'nterid, plandate, workdate, manhour, pertime, completeddate, com' +
        'pletedqty, wasterqty, pause, relationassqty, relationcount, rela' +
        'tionqty, custom1, custom2, custom3, custom4, custom5, custom6, c' +
        'ustom7, custom8, custom9, custom10, custom11, custom12, custom13' +
        ', custom14, custom15, create_time, explan, unit)'
      'VALUES'
      
        '  (:bid, :bno, :bdtlno, :productid, :workprocid, :procorderno, :' +
        'beginproc, :endproc, :bprice, :bquantity, :amount, :unitid, :qua' +
        'ntity, :price, :unit1qty, :unit2qty, :unit3qty, :assqty, :empid,' +
        ' :workshopid, :workcenterid, :plandate, :workdate, :manhour, :pe' +
        'rtime, :completeddate, :completedqty, :wasterqty, :pause, :relat' +
        'ionassqty, :relationcount, :relationqty, :custom1, :custom2, :cu' +
        'stom3, :custom4, :custom5, :custom6, :custom7, :custom8, :custom' +
        '9, :custom10, :custom11, :custom12, :custom13, :custom14, :custo' +
        'm15, :create_time, :explan, :unit)')
    SQLDelete.Strings = (
      'DELETE FROM tb_mnfmachproc'
      'WHERE'
      '  bid = :Old_bid AND bno = :Old_bno AND bdtlno = :Old_bdtlno')
    SQLUpdate.Strings = (
      'UPDATE tb_mnfmachproc'
      'SET'
      
        '  bid = :bid, bno = :bno, bdtlno = :bdtlno, productid = :product' +
        'id, workprocid = :workprocid, procorderno = :procorderno, beginp' +
        'roc = :beginproc, endproc = :endproc, bprice = :bprice, bquantit' +
        'y = :bquantity, amount = :amount, unitid = :unitid, quantity = :' +
        'quantity, price = :price, unit1qty = :unit1qty, unit2qty = :unit' +
        '2qty, unit3qty = :unit3qty, assqty = :assqty, empid = :empid, wo' +
        'rkshopid = :workshopid, workcenterid = :workcenterid, plandate =' +
        ' :plandate, workdate = :workdate, manhour = :manhour, pertime = ' +
        ':pertime, completeddate = :completeddate, completedqty = :comple' +
        'tedqty, wasterqty = :wasterqty, pause = :pause, relationassqty =' +
        ' :relationassqty, relationcount = :relationcount, relationqty = ' +
        ':relationqty, custom1 = :custom1, custom2 = :custom2, custom3 = ' +
        ':custom3, custom4 = :custom4, custom5 = :custom5, custom6 = :cus' +
        'tom6, custom7 = :custom7, custom8 = :custom8, custom9 = :custom9' +
        ', custom10 = :custom10, custom11 = :custom11, custom12 = :custom' +
        '12, custom13 = :custom13, custom14 = :custom14, custom15 = :cust' +
        'om15, create_time = :create_time, explan = :explan, unit = :unit'
      'WHERE'
      '  bid = :Old_bid AND bno = :Old_bno AND bdtlno = :Old_bdtlno')
    SQLLock.Strings = (
      'SELECT * FROM tb_mnfmachproc'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  bid = :Old_bid AND bno = :Old_bno AND bdtlno = :Old_bdtlno')
    SQLRefresh.Strings = (
      
        'SELECT bid, bno, bdtlno, productid, workprocid, procorderno, beg' +
        'inproc, endproc, cprice, bprice, bquantity, amount, unitid, quan' +
        'tity, price, unit1qty, unit2qty, unit3qty, assqty, empid, worksh' +
        'opid, workcenterid, plandate, workdate, manhour, pertime, comple' +
        'teddate, completedqty, wasterqty, pause, relationassqty, relatio' +
        'ncount, relationqty, custom1, custom2, custom3, custom4, custom5' +
        ', custom6, custom7, custom8, custom9, custom10, custom11, custom' +
        '12, custom13, custom14, custom15, create_time, explan FROM tb_mn' +
        'fmachproc'
      'WHERE'
      '  bid = :Old_bid AND bno = :Old_bno AND bdtlno = :Old_bdtlno')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from tb_mnfmachproc where bid=:bid')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 164
    Top = 277
    ParamData = <
      item
        DataType = ftInteger
        Name = 'bid'
        Value = 0
      end>
    object qryDtlProcbid: TIntegerField
      FieldName = 'bid'
    end
    object qryDtlProcbno: TIntegerField
      FieldName = 'bno'
    end
    object qryDtlProcbdtlno: TIntegerField
      FieldName = 'bdtlno'
    end
    object qryDtlProcproductid: TIntegerField
      FieldName = 'productid'
    end
    object qryDtlProcworkprocid: TIntegerField
      FieldName = 'workprocid'
    end
    object qryDtlProcprocorderno: TIntegerField
      FieldName = 'procorderno'
    end
    object qryDtlProcbeginproc: TBooleanField
      FieldName = 'beginproc'
    end
    object qryDtlProcendproc: TBooleanField
      FieldName = 'endproc'
    end
    object qryDtlProcbprice: TFloatField
      FieldName = 'bprice'
    end
    object qryDtlProcbquantity: TFloatField
      FieldName = 'bquantity'
    end
    object qryDtlProcamount: TFloatField
      FieldName = 'amount'
    end
    object qryDtlProcunitid: TIntegerField
      FieldName = 'unitid'
    end
    object qryDtlProcquantity: TFloatField
      FieldName = 'quantity'
    end
    object qryDtlProcprice: TFloatField
      FieldName = 'price'
    end
    object qryDtlProcunit1qty: TFloatField
      FieldName = 'unit1qty'
    end
    object qryDtlProcunit2qty: TFloatField
      FieldName = 'unit2qty'
    end
    object qryDtlProcunit3qty: TFloatField
      FieldName = 'unit3qty'
    end
    object qryDtlProcassqty: TFloatField
      FieldName = 'assqty'
    end
    object qryDtlProcempid: TIntegerField
      FieldName = 'empid'
    end
    object qryDtlProcworkshopid: TIntegerField
      FieldName = 'workshopid'
    end
    object qryDtlProcworkcenterid: TIntegerField
      FieldName = 'workcenterid'
    end
    object qryDtlProcmachineid: TIntegerField
      FieldName = 'machineid'
    end
    object qryDtlProcplandate: TDateTimeField
      FieldName = 'plandate'
    end
    object qryDtlProcworkdate: TDateTimeField
      FieldName = 'workdate'
    end
    object qryDtlProcmanhour: TFloatField
      FieldName = 'manhour'
    end
    object qryDtlProcpretime: TFloatField
      FieldName = 'pretime'
    end
    object qryDtlProccompleteddate: TDateTimeField
      FieldName = 'completeddate'
    end
    object qryDtlProccompletedqty: TFloatField
      FieldName = 'completedqty'
    end
    object qryDtlProcwasterqty: TFloatField
      FieldName = 'wasterqty'
    end
    object qryDtlProcpause: TBooleanField
      FieldName = 'pause'
    end
    object qryDtlProcrelationassqty: TFloatField
      FieldName = 'relationassqty'
    end
    object qryDtlProcrelationcount: TIntegerField
      FieldName = 'relationcount'
    end
    object qryDtlProcrelationqty: TFloatField
      FieldName = 'relationqty'
    end
    object qryDtlProccustom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object qryDtlProccustom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object qryDtlProccustom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object qryDtlProccustom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object qryDtlProccustom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object qryDtlProccustom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object qryDtlProccustom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object qryDtlProccustom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object qryDtlProccustom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object qryDtlProccustom10: TFloatField
      FieldName = 'custom10'
    end
    object qryDtlProccustom11: TFloatField
      FieldName = 'custom11'
    end
    object qryDtlProccustom12: TFloatField
      FieldName = 'custom12'
    end
    object qryDtlProccustom13: TFloatField
      FieldName = 'custom13'
    end
    object qryDtlProccustom14: TFloatField
      FieldName = 'custom14'
    end
    object qryDtlProccustom15: TFloatField
      FieldName = 'custom15'
    end
    object qryDtlProccreate_time: TDateTimeField
      FieldName = 'create_time'
    end
    object qryDtlProcexplan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object qryDtlProcunit: TStringField
      FieldName = 'unit'
    end
    object qryDtlProcmakeprice: TFloatField
      FieldName = 'makeprice'
    end
    object qryDtlProcmakeqty: TFloatField
      FieldName = 'makeqty'
    end
    object qryDtlProcmakeqtyformulaid: TIntegerField
      FieldName = 'makeqtyformulaid'
    end
  end
  object dspDtlProc: TDataSetProvider
    DataSet = qryDtlProc
    UpdateMode = upWhereKeyOnly
    BeforeUpdateRecord = dspDtlProcBeforeUpdateRecord
    Left = 164
    Top = 328
  end
  object cdsDtlProc: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDtlProc'
    OnNewRecord = cdsDtlProcNewRecord
    Left = 164
    Top = 373
    object cdsDtlProcbid: TIntegerField
      FieldName = 'bid'
    end
    object cdsDtlProcbno: TIntegerField
      FieldName = 'bno'
    end
    object cdsDtlProcbdtlno: TIntegerField
      FieldName = 'bdtlno'
    end
    object cdsDtlProcproductid: TIntegerField
      FieldName = 'productid'
    end
    object cdsDtlProcworkprocid: TIntegerField
      FieldName = 'workprocid'
    end
    object cdsDtlProcprocorderno: TIntegerField
      FieldName = 'procorderno'
    end
    object cdsDtlProcbeginproc: TBooleanField
      FieldName = 'beginproc'
    end
    object cdsDtlProcendproc: TBooleanField
      FieldName = 'endproc'
    end
    object cdsDtlProcbprice: TFloatField
      FieldName = 'bprice'
    end
    object cdsDtlProcbquantity: TFloatField
      FieldName = 'bquantity'
    end
    object cdsDtlProcamount: TFloatField
      FieldName = 'amount'
    end
    object cdsDtlProcunitid: TIntegerField
      FieldName = 'unitid'
    end
    object cdsDtlProcquantity: TFloatField
      FieldName = 'quantity'
    end
    object cdsDtlProcprice: TFloatField
      FieldName = 'price'
    end
    object cdsDtlProcunit1qty: TFloatField
      FieldName = 'unit1qty'
    end
    object cdsDtlProcunit2qty: TFloatField
      FieldName = 'unit2qty'
    end
    object cdsDtlProcunit3qty: TFloatField
      FieldName = 'unit3qty'
    end
    object cdsDtlProcassqty: TFloatField
      FieldName = 'assqty'
    end
    object cdsDtlProcempid: TIntegerField
      FieldName = 'empid'
    end
    object cdsDtlProcworkshopid: TIntegerField
      FieldName = 'workshopid'
    end
    object cdsDtlProcworkcenterid: TIntegerField
      FieldName = 'workcenterid'
    end
    object cdsDtlProcmachineid: TIntegerField
      FieldName = 'machineid'
    end
    object cdsDtlProcplandate: TDateTimeField
      FieldName = 'plandate'
    end
    object cdsDtlProcworkdate: TDateTimeField
      FieldName = 'workdate'
    end
    object cdsDtlProcmanhour: TFloatField
      FieldName = 'manhour'
    end
    object cdsDtlProcpretime: TFloatField
      FieldName = 'pretime'
    end
    object cdsDtlProccompleteddate: TDateTimeField
      FieldName = 'completeddate'
    end
    object cdsDtlProccompletedqty: TFloatField
      FieldName = 'completedqty'
    end
    object cdsDtlProcwasterqty: TFloatField
      FieldName = 'wasterqty'
    end
    object cdsDtlProcpause: TBooleanField
      FieldName = 'pause'
    end
    object cdsDtlProcrelationassqty: TFloatField
      FieldName = 'relationassqty'
    end
    object cdsDtlProcrelationcount: TIntegerField
      FieldName = 'relationcount'
    end
    object cdsDtlProcrelationqty: TFloatField
      FieldName = 'relationqty'
    end
    object cdsDtlProccustom1: TStringField
      FieldName = 'custom1'
      Size = 200
    end
    object cdsDtlProccustom2: TStringField
      FieldName = 'custom2'
      Size = 200
    end
    object cdsDtlProccustom3: TStringField
      FieldName = 'custom3'
      Size = 200
    end
    object cdsDtlProccustom4: TStringField
      FieldName = 'custom4'
      Size = 200
    end
    object cdsDtlProccustom5: TStringField
      FieldName = 'custom5'
      Size = 200
    end
    object cdsDtlProccustom6: TStringField
      FieldName = 'custom6'
      Size = 200
    end
    object cdsDtlProccustom7: TStringField
      FieldName = 'custom7'
      Size = 200
    end
    object cdsDtlProccustom8: TStringField
      FieldName = 'custom8'
      Size = 200
    end
    object cdsDtlProccustom9: TStringField
      FieldName = 'custom9'
      Size = 200
    end
    object cdsDtlProccustom10: TFloatField
      FieldName = 'custom10'
    end
    object cdsDtlProccustom11: TFloatField
      FieldName = 'custom11'
    end
    object cdsDtlProccustom12: TFloatField
      FieldName = 'custom12'
    end
    object cdsDtlProccustom13: TFloatField
      FieldName = 'custom13'
    end
    object cdsDtlProccustom14: TFloatField
      FieldName = 'custom14'
    end
    object cdsDtlProccustom15: TFloatField
      FieldName = 'custom15'
    end
    object cdsDtlProccreate_time: TDateTimeField
      FieldName = 'create_time'
    end
    object cdsDtlProcexplan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object cdsDtlProcunit: TStringField
      FieldName = 'unit'
    end
    object cdsDtlProcmakeprice: TFloatField
      FieldName = 'makeprice'
    end
    object cdsDtlProcmakeqty: TFloatField
      FieldName = 'makeqty'
    end
    object cdsDtlProcmakeqtyformulaid: TIntegerField
      FieldName = 'makeqtyformulaid'
    end
  end
  object dsDtlProc: TDataSource
    DataSet = cdsDtlProc
    Left = 168
    Top = 417
  end
  object pmProc: TPopupMenu
    OnPopup = pmProcPopup
    Left = 508
    Top = 361
    object muAddProc: TMenuItem
      Caption = #26032#22686#24037#24207
      OnClick = muAddProcClick
    end
    object muDelProc: TMenuItem
      Caption = #21024#38500#24037#24207
      OnClick = muDelProcClick
    end
  end
end
